1 POKE55,0:POKE56,128:CLR
2 POKE53281,0:POKE53280,0:PRINTCHR$(147)CHR$(14)CHR$(8);
5 POKE53272,29
6 DIM M$(8),R$(4):F=0:FF=0
7 FORI=1TO4:READR$(I):NEXT
8 DATA "[210]EAD IT           ","[210]UN IT            ","[195]REDITS           "
9 DATA "[205]AIN [205]ENU         "
10 FORI=1TO7:READM$(I):NEXT
11 DATA "[195]ROSSWORD [201]          "
12 DATA "[195]ROSSWORD [201][201]         "
13 DATA "[195]ROSS [212]OTAL          "
14 DATA "[204]OGIC [208]ROBLEM        "
15 DATA "[195]ROSS [195]ALC           "
16 DATA "[200]OPSCOTCH            "
18 DATA "[204]OADSTAR             "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]       [191][191][191] [212]HE [208]UZZLE [208]AGE [191][191][191]        [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                       [221]"
105 FORI=1TO9:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO7:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,0,0,24,39,43008,1,0,0
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THEN200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=7:R=11
170 IFK$=""THENM=M+1:R=R+1:IFM>7THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1)
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 IFM=7THEN11000:REMRETURNLS
220 POKE214,10:PRINT
225 PRINTTAB(13)"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
227 Q1$="[221]                    [221]"
229 FORI=1TO6:PRINTQ1$:NEXT
230 PRINTTAB(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
232 POKE214,12:PRINT
234 FORI=1TO4:PRINTTAB(15)""R$(I):NEXT
280 R2=12:M2=1:POKE214,R2:PRINT:PRINTTAB(15)"[154]"R$(M2):M1=M2:R1=R2
285 GETK$:IFK$=""THEN285
290 IFK$=CHR$(13)THEN400
295 IFK$="[145]"THENM2=M2-1:R2=R2-1:IFM2<1THENM2=4:R2=15
300 IFK$=""THENM2=M2+1:R2=R2+1:IFM2>4THENM2=1:R2=12
305 IFM2<>M1THENPOKE214,R1:PRINT:PRINTTAB(15)"[153]"R$(M1)
310 POKE214,R2:PRINT:PRINTTAB(15)"[154]"R$(M2)
315 M1=M2:R1=R2
320 GOTO285
325 :
400 IFM2=4THENSYS52496,0,0,24,39,43008,8,0,0:GOSUB28:GOTO150:REM MAIN MENU
401 :
402 IFM2=3THEN500:REM CREDITS
403 IFM2=1THEN600:REM INSTR
410 IFM2=2ANDM=1THEN700
411 IFM2=2ANDM=2THEN700
412 IFM2=2ANDM=3THEN700
413 IFM=4THENF$="TRAVEL2048"
414 IFM=5THENF$="XCALC2048"
415 IFM=6THENF$="HOP2048"
422 GOSUB9600
423 IFFF<>2THENSYS57812"CLEVELAND",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
424 FF=2
425 POKE147,0:SYS57812F$,8,1:SYS62631
430 POKE53272,31:SYS2048
435 SYS52496,0,0,24,39,43008,8,0,0:GOSUB28:POKE53272,29:GOTO150
440 :
500 IFM=1THENCR$="[201]KE [205]ILLER"
505 IFM=2THENCR$="[201]KE [205]ILLER"
510 IFM=3THENCR$="[194]ARBARA [200]. [211]CHULAK"
512 IFM=4THENCR$="[194]ARBARA [200]. [211]CHULAK"
515 IFM=5THENCR$=" [198]ENDER [212]UCKER"
516 IFM=6THENCR$="[194]ARBARA [200]. [211]CHULAK"
520 SYS52496,0,0,24,39,40960,1,0,0
525 POKE214,16:PRINT:PRINTTAB(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(5)"[221]     [208]UZZLE(S) [194]Y      [221]"
530 PRINTTAB(5)QQ$
535 PRINTTAB(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
540 POKE214,18:PRINT:PRINTTAB(17-LEN(CR$)/2)""CR$
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52496,0,0,24,39,40960,8,0,0:GOSUB28:GOTO285
555 :
600 SYS52496,0,0,24,39,40960,1,0,0
605 ONMGOSUB5000,5000,7000,9000,8000,6000
610 SYS52496,0,0,24,39,40960,8,0,0:GOSUB28:GOTO280
625 :
700 GOSUB9600
714 IFM=1THENF$="CROSS1":F1$="XWORD2048"
716 IFM=2THENF$="CROSS2":F1$="XWORD2048"
720 IFM=3THENF$="XSUMS1A":F1$="XSUMS.ML"
721 X=LEN(F$):POKE828,X+3
722 FORI=1TOX:POKE831+I,ASC(MID$(F$,I,1)):NEXT
723 POKE829,ASC("@")
724 POKE830,ASC("0")
725 POKE831,ASC(":")
726 SYS57812F$,8,0
727 POKE780,0:POKE781,O:POKE782,128
728 SYS65493
730 POKE147,0:SYS57812F1$,8,1:SYS62631
732 IFFF=1THEN750
735 SYS57812"XSUMS.FONT",8,0
740 POKE780,0:POKE781,O:POKE782,56
745 SYS65493:FF=1
750 POKE53272,31:SYS2048
760 POKE53272,29:SYS52496,0,0,24,39,43008,8,0,0:GOSUB28:GOTO150
5000 GOSUB26
5005 PRINT"[156]           [195]ROSSWORD [208]UZZLES          [146][221]";
5010 PRINTLN$;
5020 PRINT"[155]    [213]SE THE CURSOR KEYS TO MANEUVER
5025 [153]" AROUND THE GRID AND PRESS THE KEYS
5030 PRINT" TO ENTER YOUR SOLUTIONS.
5040 [153]"   (null)HE DEFINITIONS ARE DISPLAYED AT
5045 PRINT" THE BOTTOM OF THE SCREEN AND
5050 [153]" RESPRESENT THE CLUES BOTH ACROSS AND
5055 PRINT" DOWN FOR THE SQUARE THAT THE CURSOR
5060 [153]" IS ON.  ATNS YOU MOVE THE CURSOR, THE
5065 PRINT" CLUES WILL CHANGE TO REFLECT YOUR
5070 [153]" POSITION ON THE GRID.
5080 PRINT"   [193]LL CONTROLS ARE LISTED ON THE
5085 [153]" PLAYING SCREEN."
5110 [153]LN$;
5115 [153]"(null)CONT             (null)RESS (null)VAL(null)(null)(null)(null)             WAIT(null)";
5125 [161]K$:[139]K$[179][177][199](13)[167]5125
5127 [142]
6000 [141]26
6005 [153]"(null)CLR          LEFT$OPSCOTCH (null)UZZLES           WAIT(null)";
6010 [153]LN$;
6020 [153]"LIST    (null)HE OBJECT OF THESE PUZZLES IS TO
6025 PRINT" FILL IN THE BLANKS OF THE FIVE
6030 [153]" 10-LETTER WORDS WITH THE PAIRS OF
6035 PRINT" LETTERS ON THE LEFT OF THE SCREEN.
6040 [153]" VALACH PAIR MAY BE USED ONLY ONCE.
6050 PRINT"    [213]SE THE CURSOR KEYS TO MOVE TO AN
6055 [153]" EMPTY SQUARE IN THE WORDS AND THEN
6060 PRINT" PRESS THE LETTER (OR NUMBER) OF THE
6065 [153]" LETTER PAIR THAT YOU WISH TO MOVE
6070 PRINT" TO THAT LOCATION.  [195]ONVERSELY, YOU
6075 [153]" MAY MOVE A LETTER PAIR BACK BY
6080 PRINT" PRESSING THE LETTER (NUMBER) OF AN
6085 [153]" EMPTY SQUARE.
6095 PRINT"    [208]RESS [198]1 TO RETURN TO THE MAIN
6100 [153]" MENU AND ASC2 TO SEE THE SOLUTION.
6110 POKE214,21:PRINT:PRINTLN$;
6115 PRINT"[154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
6125 GETK$:IFK$<>CHR$(13)THEN6125
6130 RETURN
6135 :
7000 GOSUB26
7005 PRINT"[156]         [195]ROSS [212]OTAL [208]UZZLES          [146][221]";
7010 PRINTLN$;
7020 PRINT"[155]    [195]ROSS [212]OTAL [208]UZZLES ARE MUCH LIKE
7025 [153]" CROSSWORD PUZZLES EXCEPT THAT YOU
7030 PRINT" MUST FILL IN THE SQUARES USING THE
7035 [153]" NUMBERS 1 - 9 SO THAT THEY ADD UP TO
7040 PRINT" THE TOTALS IN THE ACROSS AND DOWN
7045 [153]" BOXES.  (null)OU MAY ONLY USE EACH DIGIT
7050 PRINT" ONCE IN EACH 'WORD'.
7070 [153]"    (null)HE TOTALS ARE DISPLAYED AT THE
7075 PRINT" BOTTOM OF THE SCREEN AND REPRESENT
7080 [153]" THE CLUES FOR THE SQUARE THAT YOUR
7085 PRINT" CURSOR IS ON.  [193]S YOU MOVE ACROSS
7090 [153]" THE GRID, THE NUMBER TOTAL WILL
7095 PRINT" CHANGE.
7102 [153]"   ATNLL CONTROLS ARE ON SCREEN.
7110 POKE214,21:PRINT:PRINTLN$;
7115 PRINT"[154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
7125 GETK$:IFK$<>CHR$(13)THEN7125
7127 RETURN
8000 GOSUB26
8005 PRINT"[156]              [195]ROSS [195]ALC              [146][221]";
8010 PRINTLN$;
8020 PRINT"[155]    [212]HE OBJECT OF THESE PUZZLES IS TO
8025 [153]" FILL IN THE EMPTY SQUARES OF THE
8030 PRINT" GRID USING THE NUMBERS DISPLAYED
8035 [153]" UNDERNEATH SO THAT EACH ROW BOTH
8040 PRINT" ACROSS AND DOWN CALCULATES TO THE
8045 [153]" TOTALS SHOWN.
8055 PRINT"    [213]SE THE CURSOR KEYS TO MOVE
8060 [153]" AROUND THE GRID AND PRESS A NUMBER
8065 PRINT" TO MOVE IT TO THE APPROPRIATE SQUARE.
8070 [153]" (null)O MOVE A NUMBER OUT OF THE GRID,
8075 PRINT" PRESS THE SPACE BAR.
8085 [153]"    (null)THER CONTROLS ARE ASC1 TO RETURN
8090 PRINT" TO THE MAIN MENU, [198]7 TO RECEIVE A
8095 [153]" HINT AND ASC2 TO SEE THE SOLUTION.
8110 POKE214,21:PRINT:PRINTLN$;
8115 PRINT"[154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
8125 GETK$:IFK$<>CHR$(13)THEN8125
8130 RETURN
8135 :
9000 GOSUB26
9005 PRINT"[156]             [204]OGIC [208]ROBLEM            [146][221]";
9010 PRINTLN$;
9020 PRINT"[155]    [201]NSTRUCTIONS FOR [212][210][193][214][197][204][207][199][213][197] ARE"
9025 PRINT" INCLUDED IN THE PROGRAM."
9110 POKE214,21:PRINT:PRINTLN$;
9115 PRINT"[154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
9125 GETK$:IFK$<>CHR$(13)THEN9125
9127 RETURN
9600 POKE214,15:PRINT
9605 PRINTTAB(4)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
9607 [153][163]4)"(null)              (null)
9610 PRINTTAB(4)"[221]  [204]OADING...  [221]
9612 [153][163]4)"(null)              (null)
9615 PRINTTAB(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
9620 [142]
9625 :
10000 [159]15,8,15,"S0:PUZZLE PAGE 61":[160]15:[148]"0:PUZZLE PAGE 61",8:[128]
11000 [151]214,12:[153]
11005 [153][163]13)"DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
11010 Q2$[178]"(null)                    (null)":[153][163]13)Q2$
11015 [153][163]13)"(null) ATNRE YOU SURE [Y/N] (null)"
11020 [153][163]13)Q2$
11025 [153][163]13)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
11030 [161]K$:[139]K$[178]""[167]11030
11035 [139]K$[179][177]"Y"[167][158]52496,0,0,24,39,43008,8,0,0:[137]150
11037 [153]"LOAD":[151]53272,23
11040 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
11050 [139]ER%[179][177]63[167][153]"LOAD":[151]43,1:[151]44,8:[151]2048,0:[128]
11055 [151]646,[194](53281):[153]"LOADLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
11060 [153]"RUN"
11061 [151]43,1:[151]44,8:[151]2048,0
11065 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]